Don't ignore case when making replacements

Fixes #204

diff --git a/which-key.el b/which-key.el
index 70a6d18ae99b1fc84d65875c647fc2a7309462b2..08f259d7ba567c347f90a4034ef584f5ee2d44f3 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1406,7 +1406,8 @@ local bindings coming first. Within these categories order using
   ;; handled in the selection of alist
   (when (and (consp key-binding) (not (symbolp (car replacement))))
     (let ((key-regexp (caar replacement))
-          (binding-regexp (cdar replacement)))
+          (binding-regexp (cdar replacement))
+          case-fold-search)
       (and (or (null key-regexp)
                (string-match-p key-regexp
                                (car key-binding)))